home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / prtcs155.zip / SCTL.REX < prev    next >
OS/2 REXX Batch file  |  1994-01-14  |  2KB  |  44 lines

  1. /**/
  2. v="$VER: Sctl Rexx  Shelter Access Control Panel  Williamson  56.10"
  3. if exists("LIBS:reqtools.library") & exists("LIBS:rexxreqtools.library") then do
  4.     call addlib("rexxreqtools.library", 1, -30, 0)
  5. end;else do
  6.     say "Sorry, you are missing reqtools.library or rexxreqtools.library"
  7.     exit
  8. end
  9. options results
  10. options failat 32001
  11. mailer=getvar('SHELTER','G')
  12. if mailer="ROOF" then envpath=""
  13. else envpath=mailer
  14. e.1="ACCESS"
  15. e.2="BBS"
  16. e.3="ALLOWFREQS"
  17. e.4="FTSFREQS"
  18. e.5="FAX"
  19. e.6="UUCP"
  20. e.7="NOANSWER"
  21. do forever
  22. do i=1 to 7
  23.     v.i=GetVar(envpath||e.i,"G")
  24. end
  25. bar=8
  26. call rtezrequest( ,
  27. lj("MENUS",bar)||" "||lj("BOARD",bar)||" "||lj("FREQS",bar)||" "||lj("FTSREQ",bar)||" "||lj("RCVFAX",bar) ,
  28. ||" "||lj("RCVUUCP",bar)||" "||lj("NOANSWER",bar)||" "||lj("UPDATE",bar)||" "||lj("SCTL",bar)||'0a'x ,
  29. ||lj(v.1,bar)||" "||lj(v.2,bar)||" "||lj(v.3,bar)||" "||lj(v.4,bar)||" "||lj(v.5,bar) ,
  30. ||" "||lj(v.6,bar)||" "||lj(v.7,bar)||" "||lj("DISPLAY",bar)||" "||lj("EXIT",bar)" " ,
  31.   ,"MENU|CBBS|FREQ|FTSR|FAX|UUCP|NOANS|UPDT|QUIT" ,
  32.   ,mailer "Shelter Mailer Inbound Access Control" ,"rtez_defaultresponse = 0")
  33. if rtresult=0 then leave
  34. if rtresult=8 then iterate
  35. if v.rtresult="TRUE" then call SetVar(envpath||e.rtresult,"FALSE","G")
  36. else call SetVar(envpath||e.rtresult,"TRUE","G")
  37. end
  38. exit
  39.  
  40. /* align text to left of field  adding spaces or trucating on right to fit   */
  41. lj:
  42.     if length(arg(1)) > arg(2) then return (left(arg(1),arg(2)))
  43.         else return (arg(1) || copies(" ",arg(2)-length(arg(1))))
  44.